home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / pb3brows.zip / TBROWSE.BAS < prev    next >
BASIC Source File  |  1993-04-02  |  1KB  |  45 lines
  1. '******************************************************************************
  2. '*          Demo van de routines voor het bekijken van bestanden              *
  3. '*                      (c) Hans Lunsing - 04/1993                            *
  4. '******************************************************************************
  5.  
  6. $DIM ARRAY
  7. $ERROR ALL -
  8. $LIB LPT -, COM -, GRAPH -, FULLFLOAT -, IPRINT -
  9. $OPTIMIZE SIZE
  10. $OPTION CNTLBREAK -, GOSUB -
  11. $STRING 1
  12.  
  13. DEFINT A-Z
  14.  
  15. $INCLUDE "GENERAL.BI"
  16.  
  17. ON ERROR RESUME NEXT
  18. Top = 0
  19. Bottom = 0
  20. TextAttr = &H1E
  21. Status = 1
  22. StatusAttr = &H74
  23. Scroll = 10
  24. WordStar = %FALSE
  25. Colour = GetActiveColor
  26. Attr Colour AND 15, Colour \ 16
  27. IF LEN(COMMAND$) THEN
  28.   FileName$ = COMMAND$
  29. ELSE
  30.   INPUT "Which File do you want to view: "; FileName$
  31. END IF
  32. Browse FileName$, Top, Bottom, TextAttr, Status, StatusAttr, Scroll, WordStar, ErrCode
  33. IF ErrCode THEN
  34.   PRINT "Error !."
  35.   PRINT "Errornumber is: "; ErrCode
  36. ELSE
  37.   Attr Colour AND 15, Colour \ 16
  38.   CLS
  39. END IF
  40. END
  41.  
  42. $LINK "browse.pbu"
  43. $LINK "abrowse.pbu"
  44. $LINK "vid&kbd.pbu"
  45.